#!/bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"

# Chemin pour trouver les differents fichers
set var_config_cheminAbsolu [info script] 
set var_config_cheminAbsolu [file dirname $var_config_cheminAbsolu] 

# Ou chercher les packages
lappend auto_path [file join $var_config_cheminAbsolu packages] 
package require tile
package require Tk

# Make the widgets
ttk::label .t -text "This widget is at the top"    -background red
ttk::label .b -text "This widget is at the bottom" -background green
ttk::label .l -text "Left\nHand\nSide"
ttk::label .r -text "Right\nHand\nSide"
text .mid
.mid insert end "This layout is like Java's BorderLayout"
# Lay them out
pack .t   -side top    -fill x
pack .b   -side bottom -fill x
pack .l   -side left   -fill y
pack .r   -side right  -fill y
pack .mid -expand 1    -fill both


set pw [ttk::paned $nb.client -orient horizontal]
$nb add $pw -text "Demo" -underline 0 -padding 6
set l [ttk::labelframe $pw.l -text "Themed" -padding 6 -underline 1]
set r [labelframe $pw.r -text "Standard" -padx 6 -pady 6]
$pw add $l -weight 1; $pw add $r -weight 1